var
  wOldErrorMode: Word;
begin
  wOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
  finally
   SetErrorMode(wOldErrorMode);
  end;
end; 